home *** CD-ROM | disk | FTP | other *** search
/ Eagles Nest BBS 8 / Eagles_Nest_Mac_Collection_Disc_8.TOAST / Developer Tools⁄Additions / InsideBa1994 / InsideBasic-94 / IB 94 / Dialog Demos / Dialog Demo.BAS next >
BASIC Source File  |  1993-02-20  |  5KB  |  198 lines
  1. '___________________________________
  2. '
  3. ' Dialog Demo
  4. ' 
  5. ' by Jonathan Durkee
  6. ' with Ross W. Lambert 
  7. ' based on the previous work of
  8. ' Chris Stasny
  9. '___________________________________
  10.  
  11. COMPILE 0,140                        '4(DBug) +8(STR#) +128(≠Case)
  12. RESOURCES "Prefs Dialog.Res"
  13. _prefsID = 128
  14.  
  15. DIM RECORD prefs
  16.   DIM pepperoni
  17.   DIM blackOlives
  18.   DIM mushrooms
  19.   DIM canadianBacon
  20.   DIM pizzaSize
  21. DIM END RECORD _prefs
  22. DIM gPrefs.prefs
  23. END GLOBALS
  24. '__________________________________________________________________________
  25.  
  26. ' really neato and nifty dialog handling functions
  27. '
  28. LOCAL MODE
  29. LOCAL FN setDTxt(dlog&,which,t$)
  30.   DIM itemRect.8
  31.   CALL GETDITEM(dlog&,which,type,h&,itemRect)
  32.   LONG IF h&
  33.     CALL SETITEXT(h&,t$)
  34.     CALL SELITEXT(dlog&,which,0,LEN(t$))
  35.   END IF
  36. END FN
  37. '
  38. '__________________________________________________________________________
  39.  
  40. LOCAL MODE
  41. LOCAL FN setDTxt$(dlog&,which)
  42.   DIM itemRect.8
  43.   t$ = ""
  44.   CALL GETDITEM(dlog&,which,type,h&,itemRect)
  45.   IF h& THEN CALL GETITEXT(h&,t$)
  46. END FN = t$
  47.  
  48. '__________________________________________________________________________
  49.  
  50. LOCAL MODE
  51. LOCAL FN getDBtn(dlog&,which)
  52.   DIM itemRect.8
  53.   state = 0
  54.   CALL GETDITEM(dlog&,which,type,h&,itemRect)
  55.   IF h& THEN state =  FN GETCTLVALUE(h&)
  56. END FN = state
  57.  
  58. '__________________________________________________________________________
  59.  
  60. LOCAL MODE
  61. LOCAL FN setDBtn(dlog&,which,state)
  62.   DIM itemRect.8
  63.   CALL GETDITEM(dlog&,which,type,h&,itemRect)
  64.   IF state THEN state = 1            ' adjust for _ZTrue = -1
  65.   LONG IF h& AND FN GETCTLVALUE(h&) <> state
  66.     CALL SETCTLVALUE(h&,state)
  67.   END IF
  68. END FN
  69.  
  70. '__________________________________________________________________________
  71.  
  72. LOCAL FN toggleDBtn(dlog&,which)
  73.   state = FN getDBtn(dlog&,which)
  74.   FN setDBtn(dlog&,which,state-1)
  75. END FN
  76.  
  77. '__________________________________________________________________________
  78.  
  79. LOCAL MODE
  80. LOCAL FN getRect(dlog&,theItem,rPtr&)
  81.   DIM t,l,b,r
  82.   CALL GETDITEM(dlog&,theItem,itemType,itemH&,t)
  83.   BLOCKMOVE @t,rPtr&,8               ' return rectangle to caller
  84. END FN
  85.  
  86. '__________________________________________________________________________
  87.  
  88. LOCAL MODE
  89. LOCAL FN frameOKBtn(DLOGPtr&)        ' draws a frame around OK btn 
  90.   DIM penRecord;18                   ' a pen record for save/restore pen state
  91.   DIM btnRect.8                      ' a rect for the dialog rect
  92.   CALL GETPENSTATE(penRecord)        ' save old pen attributes
  93.   PEN 3,3,,8
  94.   FN getRect(DLOGPtr&,1,@btnRect)
  95.   CALL INSETRECT(btnRect,-4,-4)
  96.   CALL FRAMEROUNDRECT(btnRect,16,16)
  97.   CALL SETPENSTATE(penRecord)        ' restore pen to its old self
  98. END FN
  99.  
  100. '__________________________________________________________________________
  101.  
  102. LOCAL FN setGroup(dlog&,b1,b2,setBtn)
  103.   FOR btn = b1 TO b2
  104.     LONG IF btn = setBtn             ' clear all but selected button
  105.       FN setDBtn(dlog&,btn,1)
  106.     XELSE
  107.       FN setDBtn(dlog&,btn,0)
  108.     END IF
  109.   NEXT
  110. END FN
  111.  
  112. '__________________________________________________________________________
  113.  
  114. LOCAL FN getGroup(dlog&,b1,b2)
  115.   getBtn = 0
  116.   FOR btn = b1 TO b2
  117.     IF FN getDBtn(dlog&,btn) THEN getBtn = btn : btn = b2' terminate loop
  118.   NEXT
  119. END FN = getBtn
  120.  
  121. '__________________________________________________________________________
  122.  
  123. ' Item numbers are defined in 'DITL' resource #128.
  124.  
  125. LOCAL FN getPizzaPrefs
  126.   'FN pGcntrRes(_"DLOG",_prefsID) ' for PG:PRO users 
  127.   DLOGPtr& = FN GETNEWDIALOG(_prefsID,0,-1)
  128.   LONG IF DLOGPtr&
  129.     CALL GETPORT(oldPort&)
  130.     CALL SETPORT(DLOGPtr&)           ' must be visible 
  131.     FN setDBtn(DLOGPtr&,3,gPrefs.pepperoni)
  132.     FN setDBtn(DLOGPtr&,4,gPrefs.blackOlives)
  133.     FN setDBtn(DLOGPtr&,5,gPrefs.mushrooms)
  134.     FN setDBtn(DLOGPtr&,6,gPrefs.canadianBacon)
  135.     FN setGroup(DLOGPtr&,7,9,gPrefs.pizzaSize)
  136.     FN frameOKBtn(DLOGPtr&)
  137.     
  138.     DO
  139.       CALL MODALDIALOG(0,hitItem)
  140.       SELECT 
  141.         CASE (hitItem>2 AND hitItem<7)' topping checkboxes
  142.           FN toggleDBtn(DLOGPtr&,hitItem)
  143.         CASE (hitItem>6 AND hitItem<10)' size group
  144.           FN setGroup(DLOGPtr&,7,9,hitItem)
  145.       END SELECT                     ' OK and Cancel fall through
  146.     UNTIL hitItem = 1 OR hitItem = 2' OK or Cancel
  147.     
  148.     LONG IF hitItem = 1              ' only update prefs if OK hit
  149.       gPrefs.pepperoni          = FN getDBtn(DLOGPtr&,3)
  150.       gPrefs.blackOlives        = FN getDBtn(DLOGPtr&,4)
  151.       gPrefs.mushrooms          = FN getDBtn(DLOGPtr&,5)
  152.       gPrefs.canadianBacon      = FN getDBtn(DLOGPtr&,6)
  153.       gPrefs.pizzaSize          = FN getGroup(DLOGPtr&,7,9)
  154.     END IF
  155.     CALL SETPORT(oldPort&)
  156.     CALL DISPOSDIALOG(DLOGPtr&)
  157.   END IF
  158. END FN
  159.  
  160. LOCAL FN YN$(bool)                   ' just for this demo
  161.   DIM 3 ans$
  162.   LONG IF bool
  163.     ans$ = "Yes"
  164.   XELSE
  165.     ans$ = "No"
  166.   END IF
  167. END FN = ans$
  168.  
  169. ' --- Demo Start ----
  170. gPrefs.pizzaSize = 7                 ' establish default prefs
  171. gPrefs.pepperoni = _ZTrue
  172.  
  173. FN getPizzaPrefs
  174.  
  175. COORDINATE WINDOW
  176. WINDOW 1
  177. PRINT
  178. PRINT "Pizza Prefs Results: "
  179. PRINT
  180. PRINT "Pepperoni: ";FN YN$(gPrefs.pepperoni)
  181. PRINT "Black Olives: " ;FN YN$(gPrefs.blackOlives)
  182. PRINT "Mushrooms: ";FN YN$(gPrefs.mushrooms)
  183. PRINT "Canadian Bacon: ";FN YN$(gPrefs.canadianBacon)
  184. PRINT
  185. SELECT gPrefs.pizzaSize
  186.   CASE 7                             ' small
  187.     pizzaSz$ = "Small"
  188.   CASE 8                             ' medium
  189.     pizzaSz$ = "Medium"
  190.   CASE 9                             ' large
  191.     pizzaSz$ = "Large"
  192. END SELECT
  193.  
  194. PRINT "pizzaSize: ";pizzaSz$
  195. PRINT
  196. PRINT "Press RETURN to end..."
  197. INPUT r$
  198.